Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/mackun.sit/Mackun/É}ÉbÉNÉì1.0(ÉxÅ[É^î≈)/background_2809.txt

Text File | 1990-05-15 | 25KB | 1,150 lines

-- background: 2809 from stack: in.0(ÉxÅ[É^î≈)
-- bmap block id: 3316
-- flags: 4000
-- background id: 0
-- name: âJü[âh
----- HyperTalk script -----




-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=470 top=44 right=80 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 20008 / 20008
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: â}âbâNâô
----- HyperTalk script -----
on mouseUp
  global Mrate,Mpitch,Mrobot

  if the optionKey is down
  then
  get  "ëIë"
else
  answer "É}ÉbÉNÉìÇ™òbÇ∑îÕàÕÇÕ" with "ëSïî" or "ëIë" or "íÜíf"
end if

set the cursor to 4

if it is "ëIë"
then
get the selection
if it is empty
then
answer "òbÇ∑èÍèäÇÉ}ÉEÉXÇ≈ëIëǵǃâ∫Ç≥Ç¢ !" with "óπâ"
exit mouseUp
end if
else
  if it is "ëSïî"
  then
  get field "Idea Text"
else
  exit mouseUp
end if
end if

MackunSpeech it,Mrate,Mpitch,Mrobot
end mouseUp







-- part 24 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=198 top=11 right=30 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 23962 / 23962
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Note Button
----- HyperTalk script -----
on mouseDown
  global  optionF
  get the short name of target
  put "F"&(char 2 to  10 of it) into fName
  put "G"&(char 2 to 10 of it) into gName

  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  put the loc of target into oldXY
  moveB
  put the loc of target into newXY
  put item 1 of newXY into NX
  put item 2 of newXY into NY
  put item 1 of oldXY into OX
  put item 2 of oldXY into OY
  get the loc of card field fName
  put item 1 of it into FX
  put item 2 of it into FY
  set the loc of card field fName to  FX+(NX-OX),FY+(NY-OY)
  get the rect of card field fName
  put item 3 of it into X2
  put item 4 of it into Y2
  set the loc of button gName to X2-10,y2-10

  -- è¡ãéÉ`ÉFÉbÉN
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
  get the short name of  the target
  delete char 1 of it
  put "F," after field "Cut FIeld"
  put "card field F"&it after field "Cut FIeld"
  put return after field "Cut FIeld"
  put "B," after field "Cut FIeld"
  put "button G"&it  after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
end if
end mouseDown

on mouseUp
  global optionF
  get the short name of target
  put "F"&(char 2 to  10 of it) into fName
  put "G"&(char 2 to 10 of it) into gName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  show card field fName
  show button gName
  set the hilite of bkgnd button "Set" to false
  set the hilite of bkgnd button "É}ÉbÉNÉì" to false
else
  if the visible of card field fName is true
  then
  hide card field fName
  hide button gName
else
  show card field fName
  show button gName
end if
end if
end if
end mouseUp





-- part 46 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=199 top=23 right=39 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 10558 / 10558
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mackun button
----- HyperTalk script -----
on mouseDown
  global  optionF,Mrate,Mpitch,Mrobot
  get the short name of target
  put "F"&(char 2 to  10 of it) into fName
  put "G"&(char 2 to 10 of it) into gName

  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  put the loc of target into oldXY
  moveB
  put the loc of target into newXY
  put item 1 of newXY into NX
  put item 2 of newXY into NY
  put item 1 of oldXY into OX
  put item 2 of oldXY into OY
  get the loc of card field fName
  put item 1 of it into FX
  put item 2 of it into FY
  set the loc of card field fName to  FX+(NX-OX),FY+(NY-OY)
  get the rect of card field fName
  put item 3 of it into X2
  put item 4 of it into Y2
  set the loc of button gName to X2-10,y2-10

  -- è¡ãéÉ`ÉFÉbÉN
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
  get the short name of  the target
  delete char 1 of it
  put "F," after field "Cut FIeld"
  put "card field F"&it after field "Cut FIeld"
  put return after field "Cut FIeld"
  put "B," after field "Cut FIeld"
  put "button G"&it  after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
end if
end mouseDown

on mouseUp
  global optionF
  get the short name of target
  put "F"&(char 2 to  10 of it) into fName
  put "G"&(char 2 to 10 of it) into gName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  if  the visible of card field fName is true
  then
  hide card field fName
  hide button gName
else
  show card field fName
  show button gName
end if
set the hilite of bkgnd button "Set" to false
set the hilite of bkgnd button "É}ÉbÉNÉì" to false
else
  if the visible of card field fName is false
  then
  show card field fName
end if
-- Speak
get card field fName
put the number of lines in it  into flen
repeat with n=1 to   flen
  put kanToRom(line n of it) into romdata
  if romdata is empty
  then
  answer "Hyper CardÇ∆kanji.datÇ™ìØÇ∂ÉtÉHÉãÉ_ì‡Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©ÅH"
else
  put MackunR(kanToRom(line n of it),Mrate,Mpitch,Mrobot) into dummy
  if (dummy is not empty)
  then
  answer "MacinTalkÇ™ÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©?"
end if
end if
end  repeat
if the visible of card field fName is true
then
hide card field fName
hide button gName
end if
end if
end if
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=473 top=201 right=229 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: îƒì⌡
----- HyperTalk script -----
on mouseUp
  global finData
  if  the optionKey is down
  then
  get finData
else
  ask "ǻDžÇíTǵNjÇ∑Ç©?" with finData
end if

if it is not empty
then
put it into finData
push this card
find finData
repeat forever
  answer  "Find " & quote & finData & quote with "éüåüçı" or "èIóπ"
  if it is "éüåüçı"
  then
  find finData
else
  exit mouseUp
end if
end repeat
end if
end mouseUp




-- part 54 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=473 top=232 right=260 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  show all cards
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=470 top=264 right=298 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 25321 / 25321
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: âeâLâXâgé⌐éτ
----- HyperTalk script -----
on mouseUp
  global fname
  put xgetFile() into fName
  get fName
  if it is  empty
  then
  exit mouseUp
else
  set the cursor to 4
  put it into fname
  open file fname
  repeat forever
    read from file fname until return
    if it is not empty
    then
    put it after data
  else
    exit repeat
  end if
end repeat
close file fname
end if
put data into field "Idea Text"
end mouseUp




-- part 56 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=176 right=199 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 4724 / 4724
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  set the lockScreen to true
  get the number of cards
  if it is 2
  then
  answer "ç≈å„ÇÃÉJÅ|ÉhÇÕè¡ãéÇ≈Ç´Ç‹ÇπÇÒ" with "OK"
  exit mouseUp
else
  answer "DZÇÃÉJÅ[ÉhÇè¡ãéǵNjÇ∑Ç©?" with "ÇÕÇ¢" or "ǢǢǶ"
  if it="ÇÕÇ¢"
  then
  set the cursor to 4
  lock screen
  doMenu "Delete Card"
  go prev
  unlock screen
end if
end if
end mouseUp




-- part 58 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=148 right=173 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 27114 / 27114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  ask "êVãKÉJÅ[ÉhÇÃñºëOÇÕ?" with the short name of target
  if it is not empty
  then
  set the cursor to 4
  doMenu "New Card"
  set the name of this card to it
  put it into field "Title"
else
  exit mouseUp
end if
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=471 top=303 right=338 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 10127 / 10127
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: âeâLâXâgé╓
----- HyperTalk script -----
on mouseUp
  global fname
  put xputFile() into fName
  get fName
  if it is not empty
  then
  set the cursor to 4
  put it into fname
  open file fname
  write field "Idea Text" to file fname
  close file fname
end if
end mouseUp





-- part 61 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=106 top=8 right=22 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: refButton
----- HyperTalk script -----
on mouseDown
  global  optionF
  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  set the style of the target to rectangle
  moveB
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  set the style of the target to rectangle
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
set the style of the target to transparent
end if
end mouseDown

on mouseUp
  global optionF
  put the short name of target into bName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  ask "ÉäÉìÉNÇ∑ÇÈÉJÅ[ÉhÇÃñºëO?" with the short name of target
  if it is not empty
  then
  get char 1 to 28 of it
  set the name of target to it
end if
set the hilite of bkgnd button "É}ÉbÉNÉì" to false
set the hilite of bkgnd button "Set" to false
hide msg

else
  -- go to Card
  put the short name of target into cName
  visual effect  barn door open slow
  push this card
  go card cName

  --Err É`ÉFÉbÉN
  if the result is not empty
  then
  answer "êVǵǢÉJÅ[ÉhÇǬÇ≠ÇËÇ‹Ç∑Ç©ÅH" with "OK" or "ÉLÉÉÉìÉZÉã"
  if it is "ÉLÉÉÉìÉZÉã"
  then
  exit mouseUp
end if
ask "êVǵǢÉJÅ[ÉhÇÃñºëOÇÕ?" with cName
if it is empty
then
exit mouseUp
else
  get char 1 to 28 of it
  put it into cName
  set the name of target to cName
  doMenu "New Card"
  set the name of this card to cName
  put cName into field "Title"
end if
end if
end if
end if
end mouseUp

on mouseEnter
  set the hilite of the target to true
end mouseEnter

on mouseLeave
  set the hilite of the target to false
end mouseLeave





-- part 77 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=170 top=12 right=24 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: grow button
----- HyperTalk script -----
on mouseDown
  get the short name of target
  put "B"&(char 2 to 10 of it) into bName
  put "F"&(char 2 to 10 of it) into fName

  growB
  put the rect of  card field fName into fRect
  put the rect of target into bRect
  put item 1 of fRect into X1
  put item 2 of fRect into Y1
  put item 3 of bRect into X2
  put item 4 of bRect into Y2
  set the rect of  card field fName to X1,Y1,X2+4,Y2+4
  set the loc of button bName to  X1+7,Y1-3
  hide msg
end mouseDown




-- part 82 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=105 top=22 right=34 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: grow button2
----- HyperTalk script -----
on mouseDown
  get the short name of target
  put "B"&(char 2 to 10 of it) into bName
  put "F"&(char 2 to 10 of it) into fName

  growB
  put the rect of  card field fName into fRect
  put the rect of target into bRect
  put item 1 of fRect into X1
  put item 2 of fRect into Y1
  put item 3 of bRect into X2
  put item 4 of bRect into Y2
  set the rect of  card field fName to X1,Y1,X2+4,Y2+4
  set the loc of button bName to  X1+5,Y1-7
  hide msg
end mouseDown




-- part 83 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=473 top=21 right=39 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slow to inverse
  go home
end mouseUp



-- part 107 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=106 top=22 right=36 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 7861 / 7861
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Button
----- HyperTalk script -----
on mouseDown
  global  optionF
  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  moveB
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
end if
end mouseDown

on mouseUp
  global optionF
  put the short name of target into bName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  ask "ÉäÉìÉNÇ∑ÇÈÉmÅ|ÉgÉXÉ^ÉbÉNÇÃñºëO?" with (item 1 of (the short name of target))
  put it into sName
  ask "ÉäÉìÉNÇ∑ÇÈÉJÅ[ÉhÇÃñºëO?" with (item 2 of (the short name of target))
  get char 1 to 28 of it
  put it into cName
  if sName is not empty
  then
  set the name of target to sName
end if
if cName is not empty
then
get the short name of  the target
set the name of  the target to (it)&","&(cName)
end if
set the hilite of bkgnd button "Set" to false
set the hilite of bkgnd button "É}ÉbÉNÉì" to false
hide msg

else
  -- go to Stack
  put (item 1 of (the short name of target)) into sName
  put (item 2 of (the short name of target)) into cName
  visual effect  barn door open slow
  push this card
  go sName
  --Err É`ÉFÉbÉN
  if the result is not empty
  then
  answer "êVǵǢÉmÅ|ÉgÉXÉ^ÉbÉNÇǬÇ≠ÇËÇ‹Ç∑Ç©ÅH" with "OK" or "ÉLÉÉÉìÉZÉã"
  if it is "ÉLÉÉÉìÉZÉã"
  then
  exit mouseUp
end if
doMenu "new stack..."
put (the short name of this stack ) into sName
if  sName is "HyperNote with Mackun"
then
put empty into sName
end if
ask "êVǵǢÉJÅ[ÉhÇÃñºëOÇÕÅH" with empty
get char 1 to 28 of it
put it into cName
set the  name of this card to cName
put cName into field "Title"
pop card
if sName is not empty
then
set the name of  the target to sName
end if
if cName is not empty
then
get the short name of  the target
set the name of  the target to (it)&","&(cName)
end if
end if
-- go card
go card cName
end if
end if
end mouseUp



-- part 116 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=250 top=177 right=279 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cut Field


-- part 124 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=124 top=22 right=36 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 24478 / 24478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ref2 Button
----- HyperTalk script -----
on mouseDown
  global  optionF
  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  set the style of the target to rectangle
  moveB
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  set the style of the target to rectangle
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
set the style of the target to transparent
end if
end mouseDown

on mouseUp
  global optionF
  put the short name of target into bName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  ask "ÉäÉìÉNÇ∑ÇÈÉJÅ[ÉhÇÃñºëO?" with the short name of target
  if it is not empty
  then
  get char 1 to 28 of it
  set the name of target to it
end if
set the hilite of bkgnd button "Set" to false
set the hilite of bkgnd button "É}ÉbÉNÉì" to false
hide msg

else
  -- go to Card
  put the short name of target into cName
  visual effect  barn door open slow
  push this card
  go card cName

  --Err É`ÉFÉbÉN
  if the result is not empty
  then
  answer "êVǵǢÉJÅ[ÉhÇǬÇ≠ÇËÇ‹Ç∑Ç©ÅH" with "OK" or "ÉLÉÉÉìÉZÉã"
  if it is "ÉLÉÉÉìÉZÉã"
  then
  exit mouseUp
end if
ask "êVǵǢÉJÅ[ÉhÇÃñºëOÇÕ?" with cName
if it is empty
then
exit mouseUp
else
  get char 1 to 28 of it
  put it into cName
  set the name of target to cName
  doMenu "New Card"
  set the name of this card to cName
  put cName into field "Title"
end if
end if
end if
end if
end mouseUp




-- part 132 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=462 top=18 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: buttonMask


-- part 134 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=5 top=320 right=337 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Present
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  if the short name of the target is "Present"
  then
  show menubar
  set the loc of bkgnd button "menubar" to 256,25
  set the hilite of bkgnd button "menubar" to false
  show  field "buttonMask"
  set the name of the target to "Edit"
else
  hide menubar
  set the loc of bkgnd button "menubar" to 256,6
  set the hilite of bkgnd button "menubar" to true
  hide  field "buttonMask"
  set the name of the target to "Present"
end if
end mouseUp



-- part 137 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=4 top=40 right=340 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Idea Text


-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=437 top=312 right=339 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 1950 / 1950
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Page
----- HyperTalk script -----
on mouseUp
  get the clickLoc
  put item 1 of it into X
  put item 2 of it into Y
  get the rect of target
  put item 2 of it into minY
  put item 3 of it into maxX

  put minY-(X-maxX) into Y2
  if (Y>=Y2)
  then
  visual effect  wipe right
  doMenu "Prev"
else
  lock screen
  doMenu "Next"
  if  the short name of this bkgnd is not "ÉJÅ[Éh"
  then
  lock screen
  go first
end if
unlock screen with wipe left
end if
end mouseUp




-- part 140 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=126 top=8 right=22 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 21405 / 21405
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index Button
----- HyperTalk script -----
on mouseDown
  global  optionF
  if the optionKey is down
  then
  set the cursor to -15615
  put "optionKey down"  into optionF
  moveB
  get the loc of the target
  put item 1 of it into X1
  put item 2 of it into Y1
  if ((X1<506) and (X1>469) and (Y1<339) and (Y1>306))
  then
  put "B," after field "Cut FIeld"
  put the target after field "Cut FIeld"
  put return after field "Cut FIeld"
end if
end if
end mouseDown

on mouseUp
  global optionF
  put the short name of target into bName

  if  optionF is not empty
  then
  put empty into optionF

else
  if the hilite of bkgnd button "Set" is true
  then
  ask "ÉäÉìÉNÇ∑ÇÈÉJÅ[ÉhÇÃñºëO?" with the short name of target
  if it is not empty
  then
  get char 1 to 28 of it
  set the name of target to it
end if
set the hilite of bkgnd button "Set" to false
set the hilite of bkgnd button "É}ÉbÉNÉì" to false
hide msg

else
  -- go to Card
  put the short name of target into cName
  visual effect  barn door open slow
  push this card
  go card cName

  --Err É`ÉFÉbÉN
  if the result is not empty
  then
  answer "êVǵǢÉJÅ[ÉhÇǬÇ≠ÇËÇ‹Ç∑Ç©ÅH" with "OK" or "ÉLÉÉÉìÉZÉã"
  if it is "ÉLÉÉÉìÉZÉã"
  then
  exit mouseUp
end if
ask "êVǵǢÉJÅ[ÉhÇÃñºëOÇÕ?" with cName
if it is empty
then
exit mouseUp
else
  get char 1 to 28 of it
  put it into cName
  set the name of target to cName
  doMenu "New Card"
  set the name of this card to cName
end if
end if
end if
end if
end mouseUp



-- part 143 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=4 top=21 right=39 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 144 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=0 top=0 right=12 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: menubar
----- HyperTalk script -----
on mouseUp
  get the loc of target
  put item 1 of it into X
  put item 2 of it into Y

  if the hilite of target  is true
  then
  show menubar
  set the loc of bkgnd button "menubar" to 256,25
  set the hilite of target to false
else
  hide menubar
  set the loc of bkgnd button "menubar" to 256,6
  set the hilite of target to true
end if
end mouseUp



-- part 145 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=473 top=83 right=103 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: É▌ÆΦ
----- HyperTalk script -----
on mouseUp
  set the hilite of bkgnd button "É}ÉbÉNÉì" to false
  visual effect  barn door open
  go card "MackunSet"
end mouseUp



-- part 146 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=473 top=113 right=133 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ĽÅæ
----- HyperTalk script -----
on mouseUp
  put the selection into SelStr
  set the hilite of bkgnd button "É}ÉbÉNÉì" to false
  visual effect  barn door open
  go card "é´èë"
  if SelStr is not empty
  then
  put SelStr into card field "t1"
  put empty into card field "t2"
  click at the loc of card field "t2"
else
  click at the loc of card field "t1"
end if
end mouseUp